: Data Presentation
May 8, 2023
g <-
ggplot(data=dt, aes(x=x,y=y, color=as_factor(x%%2)))+
geom_line(linetype=2, size=1, color="grey" )+
geom_point(size=4, alpha=.5)+
scale_x_continuous(
limits=c(0,max(dt$x)),
minor_breaks=seq(0,10,1),
breaks=seq(0,10,1),
labels=seq(0,10,1)
)+
scale_y_continuous(
limits=c(0,max(dt$y)),
minor_breaks=seq(0,max(dt$y),1),
breaks=seq(0,max(dt$y),10),
labels=seq(0,max(dt$y),10)
)+
facet_wrap(~ifelse(x%%2==0,"Even","Odd"))+
scale_colour_brewer(palette="Set1")+
theme_bw()+
labs(
title="My first graph",
y = "This is the y-axis",
x= "This is the x-axis",
caption="Proudly made by me",
color="Odd"
)+
theme(
legend.position="bottom",
axis.text=element_text(size=8),
axis.title=element_text(size=14,face="bold"),
legend.background = element_rect(fill="grey",
size=2, linetype="solid")
) Plain text
*italics* and _italics_
**bold** and __bold__
superscript^2^
~~strikethrough~~
[link](www.rstudio.com)
inline equation: $A = \pi*r^{2}$
Plain text
italics and italics
bold and bold
superscript2
strikethrough
link
inline equation: \(A = \pi*r^{2}\)
``` {r}
Your code here
```
``` {r}
#| echo=FALSE
#| include=TRUE
#| eval=TRUE
#| fig.width=9
#| fig.height=6
Your code here
```
---
title: 'YOURTITLE'
subtitle: 'Yoursubtitle'
author: 'YOU'
date: 'today'
date-format: long
format: html
---
---
title: 'Risk preferences'
subtitle: 'Evidence from a MPL experiment'
author: 'Me'
date: 'today'
date-format: long
format:
revealjs: default
---
M. Ploner - Experimental Economics : Data Workflow